10 V=53248:SI=54272:POKE53280,0:POKE53281,0:POKE1054,1:POKEV+21,0
20 DIM SZENE(28),T(40),IN(50),BERG(4,8)
30 DEFFNA(V)=INT((PEEK(V+4)-10)/8)+40*INT((PEEK(V+5)-40)/8)+49152
50 POKESI+24,31
100 GOSUB 50000
110 GOSUB 60000
120 POKE 1040,3
130 POKE1054,1
990 REM -----------
995 REM STARTBEREIT
996 REM -----------
1000 POKEV+17,PEEK(V+17)AND(255-16)
1010 GOSUB40100:GOSUB40000:GOSUB3000
1012 IFBZ=1THENKF=1
1015 FORA=1TO300:NEXT:POKEV+17,PEEK(V+17)OR16:SYS4096*8
1016 IFBZ<>1ANDKF=0THEN1030
1017 PRINT"      ALLE SYSTEME STARTKLAR !  ";
1018 PRINT"  \Z[146]:XV[146]";
1020 IF(PEEK(56320)AND16)<>0THEN1020
1023 IFBZ=1THENPOKE1054,0
1025 IFPEEK(50170)=43THENPOKE50170,28
1030 GOSUB40100:POKE158,1:POKE254,1:POKE1027,0:POKE148,1
1040 BA$="":IFBA<>0THENFORA=1TOBA:BA$=BA$+"N[146]":NEXT
1050 PRINT"                                       "
1090 REM -----------
1095 REM HAUPTABRAGE
1096 REM -----------
1100 PRINT"GAS:ABCDEFGHI[146]  S[146]"SA"[157]   N[146]"BA"[157] [145]"
1101 PRINT"T[146] \Z[146]:XV[146]"
1102 A1=PEEK(56320):POKE1023,GAS
1103 IF(((A1AND16)=0)AND(GAS>FF))THENGAS=GAS-FF
1104 IF(((A1AND4)=0)OR((A1AND8)=0))AND(GAS>FF)THENGAS=GAS-(FF/2)
1105 IFPEEK(1054)=1THEN8000
1106 IF(PEEK(56320)AND1)=0THEN1300
1107 IFINT(RND(TI)*(ZU+F))=0THEN1600
1120 IFPEEK(1027)<>0THEN1800
1125 IFPEEK(1026)<>0THEN1500
1130 IF(PEEK(56320)AND2)=0THEN1200
1140 IFPEEK(1028)<>0THEN2000
1145 KF=0
1160 GOTO1100
1195 REM -------------
1196 REM SACK ABWERFEN
1197 REM -------------
1200 IFSA=0THEN1100
1205 IFPEEK(166)<>0THEN1100
1210 POKE166,200:POKE1015,1:POKE1021,10
1220 SA=SA-1:GOTO1100
1295 REM -----------
1296 REM PAUSE MODUS
1297 REM -----------
1300 POKE1040,2
1305 POKE1038,1
1310 GETA$:IFA$<>""THEN1315
1311 IF(PEEK(56320)AND16)<>0THEN1310
1315 POKE1038,0
1320 POKE1040,3:KF=1:GOSUB3000:POKE158,1:POKE254,1:POKE1027,0:GOTO1100
1495 REM ---------------
1496 REM AUSSERHALB BILD
1497 REM ---------------
1500 IFFB=1THEN1505
1505 ON PEEK(1026) GOTO 1510,1520,1530,1540
1510 GOTO1130
1520 GOTO1130
1530 BZ=BZ+1:X=65:Y=7:GOTO1550
1540 BZ=BZ-1:X=26:Y=0:GOTO1550
1550 POKE1040,2:GOSUB3000
1555 POKE158,0:POKEV,X:POKEV+2,X:POKEV+4,X:POKE158,1
1560 POKE1026,0:POKE1040,3:POKE1027,0:IFY=0THENPOKEV+16,PEEK(V+16)AND248:GOTO1590
1570 POKEV+16,PEEK(V+16)OR7
1590 POKE254,1:POKE158,1:POKEV+17,PEEK(V+17)OR16:SYS4096*8:POKEV+30,0:POKE1027,0
1591 GOTO1100
1595 REM ------------
1596 REM BLITZ+DONNER
1597 REM ------------
1600 IFOY<=65THEN1120
1605 IF(PEEK(V+16)AND32)=1ANDPEEK(V+10)>50THEN1620
1610 IFZU=20THENPOKEV+21,PEEK(V+21)OR32:POKE1029,1:ZU=4:F=2:GOTO1120
1620 IFZU=4THENPOKEV+21,PEEK(V+21)AND223:POKE1030,1:ZU=20:F=FZ:GOTO1120
1795 REM ---------
1796 REM KOLLISION
1797 REM ---------
1800 REM
1820 POKESI+15,255:POKESI+19,0:POKESI+20,251:POKESI+23,0:POKESI+11,0
1830 POKESI+18,129:POKESI+18,128
1850 POKE147,0:POKE248,1:POKE247,1:POKE252,UY-1
1860 IFPEEK(165)=1THENPOKE165,0:GOTO1880
1870 POKE165,1
1880 IFPEEK(251)=1THENPOKE251,0
1890 POKE50168,44:POKE50169,17
1895 FORA=1TO20:NEXT
1900 IFPEEK(V+1)>200THEN1950
1910 POKE50168,45:POKE50169,46
1915 FORA=1TO20:NEXT
1920 IFPEEK(V+1)>200THEN1950
1930 POKE50168,47:POKE50169,46
1935 FORA=1TO20:NEXT
1940 IFPEEK(V+1)<200THEN1940
1950 IFGAS<35THENGAS=35
1951 IFSA<5THENSA=5
1952 BA=BA-1:POKE158,0:POKE254,0:IFBA=-1THEN9000
1953 IFBZ=1THEN1000
1955 POKEV+17,PEEK(V+17)AND(255-16)
1956 FORA=1TO300:NEXT:POKEV+17,PEEK(V+17)OR16:SYS4096*8
1957 POKESI+24,31
1970 IFXS=0THEN1975
1971 IFXS>255THENXS=XS-255:POKEV+16,PEEK(V+16)OR7:GOTO1973
1972 POKEV+16,PEEK(V+16)AND248
1973 POKEV,XS:POKEV+2,XS:POKEV+4,XS
1975 POKEV+1,34:POKE50168,16:POKE50169,17:A=0
1980 POKEV+1,PEEK(V+1)+1:POKEV+3,PEEK(V+1):POKEV+5,PEEK(V+1)+21:POKE1027,0
1982 IF PEEK(V+1)>180THENPOKE(V+1),30:GOTO1980
1985 IFPEEK(1027)>2THEN1980
1986 A=A+1:IFA<16THEN1980
1990 GOSUB40100:GOSUB40000
1991 GOTO1017
1995 REM --------------------
1996 REM STUETZPUNKT ERREICHT
1997 REM --------------------
2000 IFKF=1THEN1100
2005 KF=1:POKE148,0
2007 IF(BILD=1ANDPEEK(182)=1)THEN6000
2010 POKE254,0:POKE158,0:POKE50170,43:D1=INT(RND(TI)*3)+1
2015 D2=INT(RND(TI)*3)+4:IFD1=D2THEN2015
2020 GOSUB4000:VP=PEEK(V+21)
2025 IF(PEEK(V+1)>70)AND(PEEK(V+1)<170)THENPOKEV+21,PEEK(V+21)AND248
2030 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKK [146]"
2035 C=10:IFBILD<>23ANDBILD<>1THENC=8
2040 FORA=1TOC
2050 PRINT"[149]L[146] ";T$(A);" [149]L[146]"
2060 NEXTA
2070 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKK [146]"
2075 IFBILD=23ORBILD=1THEN2250
2080 BS=49441:HW=1:GOSUB62200:LE=LE-1
2090 A=D1:IFWA=2THENA=D2
2095 IFD1=0THEN2200
2100 ON(A)GOTO2110,2120,2130,2140,2150,2160
2110 SA=SA+3:GOTO2200
2120 SA=SA+5:GOTO2200
2130 SA=SA+10:GOTO2200
2140 GAS=GAS+20:GOTO2200
2150 GAS=GAS+40:GOTO2200
2160 BA=BA+1:GOTO2200
2200 IN(BZ)=0:IFGAS>79THENGAS=79
2210 GOSUB3000:POKEV+21,VP:GOSUB40000
2220 POKEV+17,PEEK(V+17)OR16:SYS4096*8:GOTO1017
2250 IF(PEEK(56320)AND16)<>0THEN2250
2260 GOTO2210
2990 REM -------------
2995 REM BILD ERZEUGEN
2996 REM -------------
3000 POKE254,0:POKE158,0:POKEV+17,PEEK(V+17)AND(255-16):POKE1040,2
3001 IFKF=1THEN3007
3002 POKEV+21,0:XS=0
3003 POKE1034,INT(RND(TI)*30)+3+FW:POKE1035,INT(RND(TI)*7)+FW
3004 POKE1036,INT(RND(TI)*7)+FW
3007 IFFB=0THENBILD=SZENE(BZ)
3009 IF BILD>12 THEN3020
3010 ON BILD GOTO 3100,3110,3120,3130,3140,3150,3160,3170,3180,3190,3200,3210
3020 IF BILD>23 THEN3040
3030 ON (BILD-12) GOTO 3220,3230,3240,3250,3260,3270,3280,3290,3300,3310,3320
3040 IF BILD>34 THEN3060
3050 ON (BILD-23) GOTO 3330,3340,3350,3360,3370,3380,3390,3400,3410,3420,3430
3060 IF BILD>45 THEN3080
3070 ON (BILD-34)GOTO3435,3440,3445,3450,3455,3460,3465,3470,3475,3480,3485
3080 ON (BILD-45)GOTO3490,3495                                              
3100 L=0  :H=160:WI=1 :OY=0  :GOTO3500
3110 L=17 :H=161:WI=2 :OY=70 :GOTO3500
3120 L=185:H=161:WI=2 :OY=140:GOTO3500
3130 L=45 :H=162:WI=3 :OY=60 :GOTO3500
3140 L=6  :H=163:WI=4 :OY=150:GOTO3500
3150 L=91 :H=163:WI=4 :OY=130:GOTO3500
3160 L=154:H=163:WI=4 :OY=150:GOTO3500
3170 L=15 :H=164:WI=5 :OY=60 :GOTO3500
3180 L=204:H=164:WI=4 :OY=80 :GOTO3500
3190 L=63 :H=165:WI=6 :OY=50 :GOTO3500
3200 L=44 :H=166:WI=7 :OY=50:GOTO3500
3210 L=111:H=167:WI=6 :OY=60 :GOTO3500
3220 L=245:H=167:WI=4 :OY=50 :GOTO3500
3230 L=154:H=168:WI=8 :OY=60 :GOTO3500
3240 L=125:H=170:WI=9 :OY=50 :GOTO3500
3250 L=207:H=169:WI=11:OY=100:GOTO3500
3260 L=18 :H=171:WI=3 :OY=60 :GOTO3500
3270 L=196:H=171:WI=4 :OY=180:GOTO3500
3280 L=13 :H=172:WI=10:OY=180:GOTO3500
3290 L=99 :H=172:WI=10:OY=180:GOTO3500
3300 L=196:H=172:WI=12:OY=140:GOTO3500
3310 L=248:H=172:WI=6 :OY=60 :GOTO3500
3320 L=2  :H=174:WI=8 :OY=0  :XS=250:GOTO3500
3330 L=24 :H=175:WI=8 :OY=180:GOTO3500
3500 POKE168,0:POKE169,216:POKE149,0:POKE150,192:POKE170,L:POKE171,H:SYS832
3505 IFIN(BZ)=0THENPOKE1041,1
3510 IF WI>12THEN3530
3520 ON WI GOSUB 3600,3610,3620,3630,3640,3650,3660,3670,3680,3690,3700,3710
3525 GOTO3540
3530 ON (WI-12) GOSUB 3720,3730,3740,3750,3760,3770,3780
3540 IFKF=1THEN3570
3550 IFOY<=65THENPOKEV+9,INT(RND(TI)*(OY-40))+40:GOTO3560
3551 IFOY<=110THENPOKEV+13,INT(RND(TI)*20)+40
3552 IFOY<=110THENPOKEV+9,INT(RND(TI)*30)+80:GOTO3560
3555 POKEV+9,INT(RND(TI)*(OY-110))+110
3556 POKEV+13,INT(RND(TI)*20)+40
3557 POKEV+15,INT(RND(TI)*30)+80
3560 POKEV+11,PEEK(V+9)+16:POKEV+8,150:POKEV+10,150:POKEV+12,150:POKEV+14,150
3561 POKEV+16,PEEK(V+16)AND15
3565 IFINT(RND(TI)*3)=0THENPOKEV+45,2:POKE50174,42:POKEV+29,16:GOTO3567
3566 POKEV+45,15:POKE50174,40:POKEV+29,80
3567 IFINT(RND(TI)*3)<>0THEN3569
3568 POKEV+46,15:POKE50175,42:POKEV+29,PEEK(V+29)AND127:GOTO3570
3569 POKEV+46,1:POKE50175,40:POKEV+29,PEEK(V+29)OR128
3570 IFOY=0THENPOKEV+21,15:GOTO3590
3575 IFOY<=65THENPOKEV+21,31:GOTO3590
3576 IFOY<=110THENPOKEV+21,95:GOTO3590
3580 POKEV+21,223
3590 POKEV+17,PEEK(V+17)OR16:SYS4096*8:POKEV+31,0:POKE1027,0:POKE1040,4:RETURN
3600 POKE977,100:POKE978,1:POKE979,10*WF:POKE980,180:POKE981,2:POKE982,10*WF
3601 POKE983,250:POKE984,0:POKE985,5*WF:POKE986,0:RETURN
3610 POKE977,100:POKE978,1:POKE979,5*WF:POKE980,155:POKE981,2:POKE982,10*WF
3611 POKE983,250:POKE984,0:POKE985,5*WF:POKE986,0:RETURN
3620 POKE977,80:POKE978,1:POKE979,10*WF:POKE980,115:POKE981,2:POKE982,10*WF
3621 POKE983,250:POKE984,1:POKE985,15*WF:POKE986,0:RETURN
3630 POKE977,100:POKE978,1:POKE979,12*WF:POKE980,155:POKE981,2:POKE982,5*WF
3631 POKE983,250:POKE984,1:POKE985,5*WF:POKE986,0:RETURN
3640 POKE977,60:POKE978,1:POKE979,10*WF:POKE980,160:POKE981,2:POKE982,15*WF
3641 POKE983,250:POKE984,1:POKE985,15*WF:POKE986,0:RETURN
3650 POKE977,160:POKE978,1:POKE979,8*WF:POKE980,250:POKE981,2:POKE982,15*WF
3651 POKE983,0:RETURN
3660 POKE977,130:POKE978,1:POKE979,10*WF:POKE980,250:POKE981,2:POKE982,10*WF
3661 POKE983,0:RETURN
3670 POKE977,60:POKE978,1:POKE979,5*WF:POKE980,140:POKE981,0:POKE982,5*WF
3671 POKE983,160:POKE984,2:POKE985,10*WF:POKE986,250:POKE987,1:POKE988,15*WF
3672 POKE989,0:RETURN
3680 POKE977,90:POKE978,1:POKE979,5*WF:POKE980,250:POKE981,2:POKE982,15*WF
3681 POKE983,0:RETURN
3690 POKE977,120:POKE978,1:POKE979,5*WF:POKE983,250:POKE984,1:POKE985,15*WF
3691 POKE980,160:POKE981,2:POKE982,10*WF:POKE986,0:RETURN
3700 POKE977,80:POKE978,1:POKE979,5*WF:POKE980,130:POKE981,2:POKE982,10*WF
3701 POKE983,250:POKE984,0:POKE985,5*WF:POKE986,0:RETURN
3710 POKE977,100:POKE978,1:POKE979,5*WF:POKE980,170:POKE981,2:POKE982,10*WF
3711 POKE983,250:POKE984,1:POKE985,15*WF:POKE986,0:RETURN
3990 REM ----------------------
3995 REM LAGERINHALT DECODIEREN
3996 REM ----------------------
4000 REM
4050 T$(1)="                    ":T$(3)=T$(1):T$(5)=T$(1):T$(6)=T$(1)
4060 T$(8)=T$(1)
4070 T$(2)="  .."+DI$(D1):T$(4)="  .."+DI$(D2):T$(7)="WAS WILLST DU ?     "
4080 T$(8)=T$(1):T$(9)="                    ":T$(10)=T$(1)
4100 IFBILD=1THEN4300
4110 IFBILD=23THEN4200
4120 RETURN
4200 IFLE>9THENA$=STR$(LE)
4202 IFLE<10THENA$=" 0"+RIGHT$(STR$(LE),1)
4205 T$(2)="IM BASISLAGER BEKOM-"
4210 T$(4)="MST DU EINEN MOTOR  "
4220 T$(6)="UND GAS ! DU MUSST  "
4221 T$(8)="NOCH"+A$+" LEUTE RETTEN"
4222 T$(7)="                    "
4225 GAS=71:POKE182,1
4230 RETURN
4300 T$(2)="WAS WILLST DU DENN  "
4310 T$(4)="NOCH HIER ? JETZT   "
4320 T$(6)="ABER NICHTS WIE LOS!"
4321 T$(8)="VIEL GL@CK !        "
4322 T$(7)="                    "
4330 RETURN
6000 REM
6005 BZ=27:KF=0:PRINT"[147]":GOSUB3000:POKE158,0:POKE254,0:POKE1040,4
6006 POKEV+45,1:POKE50174,40:POKEV+29,240:POKEV+46,1:POKE50175,40
6007 POKEV,95:POKEV+2,95:POKEV+4,95:POKEV+16,0:POKEV+1,179:POKEV+3,179
6008 POKEV+5,200:POKE148,0:POKE50170,43
6009 POKEV+9,150:POKEV+13,170:POKEV+15,160:POKEV+8,80:GOSUB6500
6010 IFLE<>0THENRUN
6015 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
6020 PRINT"[149]L[146]                                L[146]"
6030 PRINT"[149]L[146] UNTER DEN GERETTETEN BEFAND    [149]L[146]"
6040 PRINT"[149]L[146]                                L[146]"
6050 PRINT"[149]L[146] SICH EIN MILLION]R. ER SCHENKT [149]L[146]"
6060 PRINT"[149]L[146]                                L[146]"
6070 PRINT"[149]L[146] DIR AUS DANKBARKEIT EINE NETTE [149]L[146]"
6080 PRINT"[149]L[146]                                L[146]"
6090 PRINT"[149]L[146] KLEINE S@DSEEINSEL.            [149]L[146]"
6100 PRINT"[149]L[146]                                L[146]"
6105 PRINT"[149]L[146][144] DR@CKE SPACE !                 [149]L[146]"
6106 PRINT"[149]L[146]                                L[146]"
6110 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]":POKE198,0
6120 GETA$:IFA$<>" "THEN6120
6130 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
6140 PRINT"[149]L[146]                                L[146]"
6150 PRINT"[149]L[146] DORT MACHST DU DIR EIN SCH[NES [149]L[146]"
6160 PRINT"[149]L[146]                                L[146]"
6170 PRINT"[149]L[146] LEBEN UND L]SST DICH VON DEN   [149]L[146]"
6180 PRINT"[149]L[146]                                L[146]"
6190 PRINT"[149]L[146] INSELBEWOHNERINNEN VERW[HNEN ! [149]L[146]"
6200 PRINT"[149]L[146]                                L[146]"
6210 PRINT" KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
6215 PRINT"                                     "
6216 PRINT"                                     "
6217 PRINT"                                     "
6218 PRINT"                                     ":POKE198,0
6220 IF(PEEK(56320)AND16)=0THEN6230
6225 GETA$:IFA$<>" "THEN6220
6230 RUN
6500 Z=PEEK(1046)+PEEK(1047)*10+PEEK(1048)*60+PEEK(1049)*600
6501 Z=1800-Z:Z1=INT(Z/60):Z2=Z-Z1*60
6502 Z1$=RIGHT$(STR$(Z1),2):IFZ1<10THENZ1$="0"+RIGHT$(STR$(Z1),1)
6503 Z2$=RIGHT$(STR$(Z2),2):IFZ2<10THENZ2$="0"+RIGHT$(STR$(Z2),1)
6505 ZE$=Z1$+":"+Z2$
6506 SC=Z*10+(20-LE)*1000+BA*5000
6507 SC$=RIGHT$(STR$(SC),5)
6508 LE$=RIGHT$(STR$(20-LE),2):IF(20-LE)<10THENLE$="0"+RIGHT$(STR$(20-LE),1)
6509 IFLE=0THENLE$=LE$+" (ALLE)"
6510 IFLE<>0THENLE$=LE$+"       "
6511 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
6515 PRINT"[149]L[146]                                L[146]"
6520 PRINT"[149]L[146] DEINE ZEIT:   "ZE$"            [149]L[146]"
6521 IFSC<10000THENRA$="BALLONF@HRER 5.KL.":GOTO6530
6522 IFSC<20000THENRA$="BALLONF@HRER 4.KL.":GOTO6530
6523 IFSC<30000THENRA$="BALLONF@HRER 3.KL.":GOTO6530
6524 IFSC<40000THENRA$="BALLONF@HRER 2.KL.":GOTO6530
6525 RA$="BALLONF@HRER 1.KL."
6530 PRINT"[149]L[146]                                L[146]"
6540 PRINT"[149]L[146] GERETTET:     "LE$"        [149]L[146]"
6550 PRINT"[149]L[146]                                L[146]"
6560 PRINT"[149]L[146] DEINE PUNKTE: "SC$"            [149]L[146]"
6570 PRINT"[149]L[146]                                L[146]"
6580 PRINT"[149]L[146] DEIN RANG: "RA$"  [149]L[146]"
6590 PRINT"[149]L[146]                                L[146]"
6595 PRINT"[149]L[146][144] DR@CKE SPACE                  [149] L[146]"
6596 PRINT"[149]L[146]                                L[146]"
6600 PRINT" KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
6610 GETA$:IFA$<>" "THEN6610
6620 RETURN
8000 A=PEEK(V+21):POKEV+21,0:POKE1040,2:POKESI+24,0
8010 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
8020 PRINT"[149]L[146]                                L[146]"
8030 PRINT"[149]L[146] KAUM ZU GLAUBEN, ABER DU       [149]L[146]"
8040 PRINT"[149]L[146]                                L[146]"
8050 PRINT"[149]L[146] SPIELST JETZT SEIT 1/2 STUNDE. [149]L[146]"
8060 PRINT"[149]L[146]                                L[146]"
8070 PRINT"[149]L[146] DIESE UNGLAUBLICHE AUSDAUER    [149]L[146]"
8080 PRINT"[149]L[146]                                L[146]"
8090 PRINT"[149]L[146] MUSS MIT EINER  ZEITGUTSCHRIFT [149]L[146]"
8100 PRINT"[149]L[146]                                L[146]"
8110 PRINT"[149]L[146] BELOHNT WERDEN (DR@CKE SPACE)! [149]L[146]"
8120 PRINT"[149]L[146]                                L[146]"
8130 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
8150 GETA$:IFA$<>" "THEN8150
8160 POKE1046,0:POKE1047,0:POKE1048,5:POKE1049,0:POKE1054,0:POKEV+21,A
8170 GOSUB3000:POKESI+24,31:GOTO1320
9000 POKEV+21,0:POKE1040,2
9010 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
9020 PRINT"[149]L[146]                                L[146]"
9030 PRINT"[149]L[146] PECH GEHABT, WAS? NA JA ES IST [149]L[146]"
9040 PRINT"[149]L[146]                                L[146]"
9050 PRINT"[149]L[146] NOCH KEIN MEISTER VON HIMMEL   [149]L[146]"
9055 IF LE<5 THEN RA$="STEUERMANN       ":GOTO9060
9056 IF LE<10 THEN RA$="BODENPERSONAL    ":GOTO9060
9057 IF LE<15 THEN RA$="BALLONN]HER      ":GOTO9060
9058 RA$="GASFLASCHENF@LLER"
9060 PRINT"[149]L[146]                                L[146]"
9070 PRINT"[149]L[146] GEFALLEN (EBEN!).              [149]L[146]"
9080 PRINT"[149]L[146]                                L[146]"
9090 PRINT"[149]L[146] DEIN RANG: "RA$"   [149]L[146]"
9100 PRINT"[149]L[146]                                L[146]"
9110 PRINT"[149]L[146][144] DR@CKE SPACE                   [149]L[146]"
9120 PRINT"[149]L[146]                                L[146]"
9130 PRINT"[149] KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK [146]"
9140 GETA$:IFA$<>" "THEN9140
9150 RUN
9999 STOP
30000 A=PEEK(56320)
30010 IF(AAND1)=0THENPOKEV+1,PEEK(V+1)-1:POKEV+3,PEEK(V+3)-1:POKEV+5,PEEK(V+5)-1
30020 IF(AAND2)=0THENPOKEV+1,PEEK(V+1)+1:POKEV+3,PEEK(V+3)+1:POKEV+5,PEEK(V+5)+1
30030 PRINT"";PEEK(V+1),BZ
30040 IF(AAND16)=0THENBZ=BZ+1:GOSUB3000
30050 GOTO30000
39990 REM ----------------------------
39995 REM ALLE ZAEHLER AUF NULL SETZEN
39996 REM ----------------------------
40000 POKE146,0:POKE159,0:POKE165,1:POKE166,0:POKE167,0:POKE176,0:POKE178,0
40010 POKE180,0:POKE192,0:POKE251,1:POKE252,0:POKE253,0:POKE1002,0:POKE1004,0
40020 POKE1020,0:POKE1026,0:POKE1027,0:POKE50168,16:POKE50169,17:D1=1:ZU=20
40030 RETURN
40090 REM ----------------------------
40095 REM SETZE START AUS RUHEPOSITION
40096 REM ----------------------------
40100 POKE156,CS:POKE158,0:POKE188,CV:POKE190,CM:POKE247,CU:POKE248,CF
40110 POKE249,CX:POKE251,1:POKE252,UY-2:POKE155,UY:POKE187,UX:POKE159,UX-2
40115 POKE181,CT:POKE254,0:POKEV+21,PEEK(V+21)AND(255-32)
40117 IFKF=1THENRETURN
40120 IFBZ<>1THENRETURN
40130 POKEV,88:POKEV+2,88:POKEV+4,88:POKEV+1,189:POKEV+3,189:POKEV+5,210
40140 POKEV+16,0:RETURN
49990 REM --------------
49995 REM SEZTE PARAMTER
49996 REM --------------
50000 FORA=1TO27:READB:SZENE(A)=B:NEXT
51000 POKE53283,09:POKE53282,11
51010 POKE50168,16:POKE50169,17:POKE50170,18:POKE50171,39
51015 POKE50172,40:POKE50173,41:POKE50174,42
51020 POKEV+39,1:POKEV+40,6:POKEV+41,15:POKEV+42,9:POKEV+43,15:POKEV+44,7
51021 POKEV+45,2:POKE1038,0:POKE1041,0
51025 POKEV+28,0
51030 POKEV+16,0:POKEV+27,15:POKEV+23,32:POKEV+29,16
51040 POKE828,2:POKE829,9:POKE830,6:POKE831,7
51045 POKE1046,1:POKE1047,0:POKE1048,0:POKE1058,0:POKE1059,5
51050 POKE1043,0:POKE1044,100:POKE1045,0:POKE1040,1
51055 POKE1050,1:POKE1051,1:POKE1052,1:POKE1053,1
51060 POKE1003,5:POKE1005,5:POKE1023,0:POKE1002,0:POKE1004,0
51070 SYS4096*8
51080 DI$(1)="3 SANDS]CKE     "
51090 DI$(2)="5 SANDS]CKE     "
51100 DI$(3)="10 SANDS]CKE    "
51110 DI$(4)="20 EINHEITEN GAS"
51120 DI$(5)="40 EINHEITEN GAS"
51130 DI$(6)="1 BALLON        ":POKE1054,1
51150 FORA=1TO30:IN(A)=1:NEXT
51200 FORA=0TO7:READB:POKE33956+A,B:NEXT
51210 FORA=58376TO58455:POKEA,0:NEXT
54000 D1=1:RETURN
55000 DATA 1,2,3,4,5,7,6,8,6,9,10,11,6,22,6,12,13,14,15,17,18
55010 DATA 19,20,16,21,23,24
55020 DATA 0,128,192,224,240,248,252,254
59990 REM ------------------------
59995 REM TITEL UND VORBEREITUNGEN
59996 REM ------------------------
60000 POKE1003,5:POKE1005,5:POKE1040,1:POKE53280,0:POKE53281,0
60020 POKE158,0:POKE254,0
60030 POKE977,250:POKE978,2:POKE979,0
60100 PRINT"[147]NICHTS ALS ..."
60110 FORA=1TO1500:NEXT
60120 PRINT" [149][192] [192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192]  [192]   [192] [192] [192][192][192] [192][192][192]"
60130 PRINT" [149][192] [192] [192]   [192] [192]   [192]   [192]    [192]   [192] [192] [192]    [192]"
60140 PRINT" [149][192][192][192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192]  [192]   [192] [192] [192][192][192]  [192]"
60150 PRINT" [149][192] [192] [192]   [192]   [192]   [192] [192]    [192]   [192] [192] [192]    [192]"
60160 PRINT" [149][192] [192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192]  [192][192][192] [192][192][192] [192]    [192]"
60170 PRINT"[154][211][212][213][214][215][216][216][215][214][213][212][211][211][212][213][214][215][216][216][215][214][213][212][211][211][212][213][214][215][216][216][215][214][213][212][211][211][212]"
60175 GETA$:IFA$=" "THEN60280
60180 FORA=1TO1000:NEXT
60200 PRINT"[158]PROGRAMMIERT VON ....... > ACHIM M@LLER"
60210 FORA=1TO1500:NEXT
60215 GETA$:IFA$=" "THEN60280
60220 PRINT"[158]TOLLE IDEEN VON ........ < WALTER L[RCH"
60230 FORA=1TO1500:NEXT
60233 GETA$:IFA$=" "THEN60280
60235 PRINT"[158]                         %'"
60240 PRINT"[158]GEWIDMET F@R ........... & CLAUDIA"
60245 PRINT"                          "
60246 FORA=1TO1000:NEXT
60250 FORA=1TO1500:NEXT
60260 X=105:Y=215:T$="DR@CKE SPACE":GOSUB62000
60270 GETA$:IFA$<>" "THEN60270
60280 PRINT"[158] SPIELERTYP: B[146] ..... SCHL]FER          "
60285 PRINT"                                       "
60290 PRINT"[158]             B[146] ..... DURCHSCHNITTSB@RGER";
60300 PRINT"                                       "
60310 PRINT"[158]             B[146] ..... HEKTIKER          "
60315 PRINT"                                       "
60320 PRINT" ODER:       B[146] ..... WAS ISS LOS ?     "
60321 PRINT"                                       "
60322 PRINT"         [160][160]                            "
60324 PRINT"[156]W]HLE MIT JOYSTICK OBEN/UNTEN UND FEUER"
60330 BS=49685:LA=23:HW=3:GOSUB62200
60342 REM ----------------------
60343 REM SEZTE STEUERUNGSSTUFEN
60344 REM ----------------------
60345 IFWA=4THENGOTO61000
60350 ON WA GOSUB 60500,60600,60700
60360 POKE1054,0:POKE182,0:POKE148,1:POKE147,1:POKE188,1:POKE1003,20:POKE1005,20
60370 UX=50:UY=50:GAS=40:BZ=1:POKE1023,GAS:SA=5:LE=20
60380 RETURN
60500 CV=5:CT=5:CF=6:CX=3:CS=4:CU=5
60510 CM=5:BA=3:WF=.7:FF=0.1:FW=3:FZ=4:POKE1049,4
60520 RETURN
60600 CV=5:CT=1:CF=4:CX=2:CS=3:CU=5
60610 CM=5:BA=3:WF=.6:FF=0.2:FW=2:FZ=2:POKE1049,3
60620 RETURN
60700 CV=5:CT=0:CF=3:CX=1:CS=2:CU=3
60710 CM=5:BA=4:WF=.5:FF=0.4:FW=0:FZ=1:POKE1049,2
60720 RETURN
61000 PRINT"[147]SEHR GEEHRTER SPIELER, WIR GRATULIEREN"
61010 PRINT"IHNEN ZUM KAUF DIESER HOCHWERTIGEN"
61020 PRINT"DISKETTE/ZEITSCHRIFT. DIE FOLGENDE"
61030 PRINT"ANLEITUNG SOLL IHNEN HELFEN SICH MIT"
61040 PRINT"UNSEREM PRODUKT BESSER ZURECHTZUFINDEN."
61042 PRINT"F@R EVENTUELLE JOYSTICHSCH]DEN O.]."
61044 PRINT"K[NNEN WIR KEINE HAFTUNG @BERNEHMEN !"
61046 GOSUB63000
61050 PRINT"UM IHR VORWISSEN RICHTIG EINSTUFEN ZU"
61060 PRINT"K[NNEN, BEANTWORTEN SIE BITTE FOLGENDE"
61070 PRINT"FRAGE:":PRINT"WAS IST EINE CPU ?"
61080 PRINT"[158]  ..... COFFEE PRODUCING UNIT"
61090 PRINT"  ..... CONTROL PROCESSING UNIT"
61100 PRINT"  ..... EINE PARTEI IN BAYERN"
61110 PRINT"  ..... WEISS NICHT"
61120 PRINT"                    "
61130 PRINT""
61140 HW=3:BS=49632:LA=35:GOSUB62200
61150 ONWAGOTO61200,61250,61300,61350
61200 PRINT"[147]?OUT OF COFFEE ERROR IN 60234":FORA=1TO1000:NEXT
61210 IF(PEEK(56320)AND16)<>0THEN61210
61220 GOTO61500
61250 PRINT"[147]WIE EINFALLSLOS ! SIE M@SSEN"
61255 PRINT"INFORMATIKER SEIN. DA SIE SICH SO GUT"
61260 PRINT"AUSKENNEN, BRAUCHEN SIE AUCH KEINE"
61270 PRINT"ANLEITUNG."
61280 GOSUB63000
61290 GOTO61990
61300 PRINT"[147]ICH GLAUBE SIE VERWECHSELN DA ETWAS !"
61310 PRINT"ABER DAS MACHT NICHTS ! SIE M@SSEN JA"
61320 PRINT"NICHT JEDE PARTEI KENNEN."
61330 GOSUB63000
61340 GOTO61500
61350 PRINT"[147]SIE HABEN EINE ANLEITUNG DRINGEND"
61360 PRINT"N[TIG !"
61370 GOSUB63000:GOTO61500
61400 REM
61450 REM
61500 PRINT"SINN DES SPIELS:":PRINT"MMMMMMMMMMMMMMMM"
61510 PRINT"VERSUCHEN SIE LIEBER KEINEN ZU FINDEN !"
61520 PRINT"ZIEL DES SPIELS:":PRINT"MMMMMMMMMMMMMMMM"
61530 PRINT"MAN[VRIEREN SIE IHREN BALLON HEIL DURCH"
61540 PRINT"ALLE 27 BILDER UND WIEDER ZUR@CK."
61545 PRINT"RETTEN SIE DABEI DIE MENSCHEN ;, DIE IN"
61546 PRINT"DEN BILDERN VERTEILT SIND. AUS DANK"
61547 PRINT"ERHALTEN SIE DANN GAS, SANDS]CKE ODER"
61548 PRINT"EINEN ERSATZBALLON. NEHMEN SIE SICH VOR"
61550 PRINT"DER EIGENWILLIGEN BLITZENDEN WOLKE UND"
61560 PRINT"DEN FLUGZEUGEN IN ACHT !"
61570 GOSUB63000
61580 PRINT"STEUERUNG:":PRINT"MMMMMMMMM"
61590 PRINT"DER BALLON L]SST SICH NUR DURCH"
61600 PRINT"BET]TIGEN DES GASBRENNERS (TR]GE) UND"
61610 PRINT"ABWURF VON SANDS]CKEN (SCHNELLER)"
61620 PRINT"STEUERN. DIE BEWEGUNG IN X-RICHTUNG"
61630 PRINT"H]NGT VON DER WINDRICHTUNG AB, DIE"
61640 PRINT"MAN SICH ZU JEDER ZEIT ANZEIGEN LASSEN"
61645 PRINT"KANN. IM LETZTEN BILD ERH]LT MAN EINEN"
61646 PRINT"MOTOR, DER AUCH DIE STEUERUNG NACH"
61647 PRINT"LINKS BZW. RECHTS ERM[GLICHT."
61649 GOSUB63000
61650 PRINT"JOYSTICKBELEGUNG:":PRINT"MMMMMMMMMMMMMMMM"
61655 PRINT"FEUERKNOPF  = FEUERN"
61660 PRINT"OBEN        = WIND ANZEIGEN (=PAUSE)"
61670 PRINT"UNTEN       = SANDSACK ABWERFEN"
61675 PRINT"NUR MIT MOTOR:"
61680 PRINT"LINKS       = BEWEGUNG LINKS"
61690 PRINT"RECHTS      = BEWEGUNG RECHTS"
61695 GOSUB 63000
61700 PRINT"TAKTIKTIP:":PRINT"MMMMMMMMM"
61710 PRINT"SAMMELN SIE AUF DEM HINWEG NUR DIE"
61720 PRINT"MENSCHEN AUF, DIE SIE LEICHT ERREICHEN"
61730 PRINT"K[NNEN BZW. WENN SIE WIEDER NACHSCHUB"
61740 PRINT"(GAS ODER SANDS]CKE) BRAUCHEN !"
61750 PRINT"DENN AUF DEM R@CKWEG HABEN SIE JA DEN"
61760 PRINT"MOTOR (F@R DEN SIE AUCH GAS BRAUCHEN)."
61765 PRINT"DIE PUNKTE ERRECHNEN SICH @BRIGENS AUS"
61766 PRINT"DER BEN[TIGTEN ZEIT, DEN GERETTETEN"
61767 PRINT"MENSCHEN UND DEN RESTLICHEN BALLONS."
61770 GOSUB63000
61990 POKE198,1:POKE631,32:GOTO60000
62000 POKEV+1,Y:POKEV+3,Y:POKEV+5,Y+21
62010 FORA=1TO40:T(A)=32:NEXT
62020 FORA=1TOLEN(T$):T(A)=ASC(MID$(T$,A,1)):IFT(A)>63THENT(A)=T(A)-64
62030 NEXT:B=1:POKEV+21,7
62040 FORA=30TOX
62050 POKEV,A:POKEV+2,A:POKEV+4,A:NEXT
62060 FORA=X+1TOX+LEN(T$)*8
62070 POKEV,A:POKEV+2,A:POKEV+4,A
62080 IFA/8=INT(A/8)THENPOKEFNA(V),T(B):B=B+1
62090 NEXT
62095 FORA=X+LEN(T$)*8+1TO255
62096 POKEV,A:POKEV+2,A:POKEV+4,A:NEXT
62100 POKEV+16,7
62110 FORA=0TO100
62120 POKEV,A:POKEV+2,A:POKEV+4,A
62130 NEXT
62140 POKEV+16,0:POKEV,0:POKEV+2,0:POKEV+4,0:RETURN
62200 IFD1=0THEN62350
62202 A=0:POKE1003,20:GOTO62235
62205 B=PEEK(56320):IFB=127THEN62205
62210 IF(BAND1)=0THENAA=A:A=A-1:IFA<0THENA=HW
62220 IF(BAND2)=0THENAA=A:A=A+1:IFA>HWTHENA=0
62230 IF(BAND16)=0THEN62320
62235 IFBS<>49685THEN62310
62240 ONA+1GOTO62250,62260,62270,62280
62250 POKE1003,30:GOTO62300
62260 POKE1003,10:GOTO62300
62270 POKE1003,01:GOTO62300
62280 POKE1003,50:GOTO62300
62300 POKE1002,0
62310 POKEBS+80*AA,32:POKEBS+80*A,60:FORC=1TO100:NEXT:GOTO62205
62320 WA=A+1:RETURN
62350 IF(PEEK(56320)AND16)<>0THEN62350
62360 RETURN
63000 PRINT"DR@CKE FEUERKNOPF ![145]"
63010 IF(PEEK(56320)AND16)<>0THEN63010
63020 RETURN